home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / fapx / fapxdset.plp < prev    next >
Text File  |  1991-10-18  |  7KB  |  286 lines
  1. /************************************************************************
  2. *    ダウンロード制御ファイルを指定する                *
  3. /************************************************************************/
  4. %SETCNTL2
  5.     {
  6.     var    cntl    [256];
  7.     dnldcntl:={};
  8.     footnote({制御ファイルの種類は？});
  9.     SNDMSG({erande_f.snd});
  10.     select    (
  11.         {制御ファイルの種類は？},
  12.         Wtime4,,
  13.         { メ  モ },
  14.         {case    (
  15.             @mlast,
  16.             0,
  17.             {
  18.             footnote({メモがありません　次の処理は？});
  19.             SNDMSG({erande_f.snd});
  20.             select    (
  21.                 {メモがありません},
  22.                 Wtime4,,
  23.                 {再指定},SETCNTL2,
  24.                 {中  止},
  25.                 )
  26.             },
  27.             1,
  28.             {dnldcntl:={memo1}},
  29.             2,
  30.             {
  31.             footnote({メモ番号は？});
  32.             SNDMSG({erande_f.snd});
  33.             select    (
  34.                 {メモ番号は？},
  35.                 Wtime4,,
  36.                 {メモ１},{dnldcntl:={memo1}},
  37.                 {メモ２},{dnldcntl:={memo2}}
  38.                 )
  39.             },
  40.             3,
  41.             {
  42.             footnote({メモ番号は？});
  43.             SNDMSG({erande_f.snd});
  44.             select    (
  45.                 {メモ番号は？},
  46.                 Wtime4,,
  47.                 {メモ１},{dnldcntl:={memo1}},
  48.                 {メモ２},{dnldcntl:={memo2}},
  49.                 {メモ３},{dnldcntl:={memo3}}
  50.                 )
  51.             },
  52.             4,
  53.             {
  54.             footnote({メモ番号は？});
  55.             SNDMSG({erande_f.snd});
  56.             select    (
  57.                 {メモ番号は？},
  58.                 Wtime4,,
  59.                 {メモ１},{dnldcntl:={memo1}},
  60.                 {メモ２},{dnldcntl:={memo2}},
  61.                 {メモ３},{dnldcntl:={memo3}},
  62.                 {メモ４},{dnldcntl:={memo4}}
  63.                 )
  64.             },
  65.             5,
  66.             {
  67.             footnote({メモ番号は？});
  68.             SNDMSG({erande_f.snd});
  69.             select    (
  70.                 {メモ番号は？},
  71.                 Wtime4,,
  72.                 {メモ１},{dnldcntl:={memo1}},
  73.                 {メモ２},{dnldcntl:={memo2}},
  74.                 {メモ３},{dnldcntl:={memo3}},
  75.                 {メモ４},{dnldcntl:={memo4}},
  76.                 {メモ５},{dnldcntl:={memo5}}
  77.                 )
  78.             },
  79.             6,
  80.             {
  81.             footnote({メモ番号は？});
  82.             SNDMSG({erande_f.snd});
  83.             select    (
  84.                 {メモ番号は？},
  85.                 Wtime4,,
  86.                 {メモ１},{dnldcntl:={memo1}},
  87.                 {メモ２},{dnldcntl:={memo2}},
  88.                 {メモ３},{dnldcntl:={memo3}},
  89.                 {メモ４},{dnldcntl:={memo4}},
  90.                 {メモ５},{dnldcntl:={memo5}},
  91.                 {メモ６},{dnldcntl:={memo6}}
  92.                 )
  93.             },
  94.             7,
  95.             {
  96.             footnote({メモ番号は？});
  97.             SNDMSG({erande_f.snd});
  98.             select    (
  99.                 {メモ番号は？},
  100.                 Wtime4,,
  101.                 {メモ１},{dnldcntl:={memo1}},
  102.                 {メモ２},{dnldcntl:={memo2}},
  103.                 {メモ３},{dnldcntl:={memo3}},
  104.                 {メモ４},{dnldcntl:={memo4}},
  105.                 {メモ５},{dnldcntl:={memo5}},
  106.                 {メモ６},{dnldcntl:={memo6}},
  107.                 {メモ７},{dnldcntl:={memo7}}
  108.                 )
  109.             },
  110.             8,
  111.             {
  112.             footnote({メモ番号は？});
  113.             SNDMSG({erande_f.snd});
  114.             select    (
  115.                 {メモ番号は？},
  116.                 Wtime4,,
  117.                 {メモ１},{dnldcntl:={memo1}},
  118.                 {メモ２},{dnldcntl:={memo2}},
  119.                 {メモ３},{dnldcntl:={memo3}},
  120.                 {メモ４},{dnldcntl:={memo4}},
  121.                 {メモ５},{dnldcntl:={memo5}},
  122.                 {メモ６},{dnldcntl:={memo6}},
  123.                 {メモ７},{dnldcntl:={memo7}},
  124.                 {メモ８},{dnldcntl:={memo8}}
  125.                 )
  126.             },
  127.             9,
  128.             {
  129.             footnote({メモ番号は？});
  130.             SNDMSG({erande_f.snd});
  131.             select    (
  132.                 {メモ番号は？},
  133.                 Wtime4,,
  134.                 {メモ１},{dnldcntl:={memo1}},
  135.                 {メモ２},{dnldcntl:={memo2}},
  136.                 {メモ３},{dnldcntl:={memo3}},
  137.                 {メモ４},{dnldcntl:={memo4}},
  138.                 {メモ５},{dnldcntl:={memo5}},
  139.                 {メモ６},{dnldcntl:={memo6}},
  140.                 {メモ７},{dnldcntl:={memo7}},
  141.                 {メモ８},{dnldcntl:={memo8}},
  142.                 {メモ９},{dnldcntl:={memo9}}
  143.                 )
  144.             }
  145.             );
  146.         },
  147.         {ファイル},
  148.         {
  149.         footnote({ダウンロード制御ファイルは？});
  150.         SNDMSG({erande_f.snd});
  151.         dnldcntl:=@filesel;
  152.         case    (
  153.             dnldcntl={},
  154.             {No},
  155.             {
  156.             case    (
  157.                 @nochar(@getcdir)==3,
  158.                 {Yes},        /* root dir */
  159.                 {dnldcntl:=@getcdir|dnldcntl},
  160.                 {No},
  161.                 {dnldcntl:=@getcdir|{\}|dnldcntl}
  162.                 )
  163.             },
  164.             {Yes},
  165.             );
  166.         },
  167.         {新規作成},
  168.         {
  169.         SETUP2;
  170.         dnldcntl:=TEMP2|{_mopdnld.ctl};
  171.         }
  172.         );
  173.     setcdir(CDIR);
  174.     };
  175. /************************************************************************
  176. *    オートダウンロード制御ファイル作成処理                *
  177. *************************************************************************/
  178.  
  179. %SETUP2
  180.     {
  181.     dispoff({Yes});
  182.     command    ({del }|TEMP2|{_mopdnld.ctl});
  183.     dispoff({No});
  184.     loop    (
  185.         {
  186.         footnote({ダウンロード元を指定して下さい});
  187.         SNDMSG({erande_f.snd});
  188.         select    (
  189.             {ダウンロード元を指定して下さい},
  190.             Wtime4,    {im({No})},
  191.             {   フォーラム   },{AUTOdlib;    im({Yes})},
  192.             {プロフィール情報},{AUTOprof;    im({Yes})},
  193.             {     終  了     },{im({No})}
  194.             )
  195.         }
  196.         );
  197.     display    ({\n\n});
  198.     command    ({type }|TEMP2|{_mopdnld.ctl});
  199.     footnote({制御ファイルを確認してください});
  200.     SNDMSG({kaknin_f.snd});
  201.     select    (
  202.         {制御ファイルを確認してください},
  203.         Wtime4,    {},
  204.         {Ｏ  Ｋ},{},
  205.         {Ｎ  Ｇ},{SETUP2},
  206.         {中  止},{DNLDCNTL:={}}
  207.         );
  208.     };
  209.  
  210. /*    データライブラリからのダウンロード制御文作成    */
  211. %AUTOdlib
  212.     {
  213.     footnote({フォーラム名を入力して下さい});
  214.     SNDMSG({nyuryo_f.snd});
  215.     cntl:=    {forum=}|@input({フォーラム名を入力して下さい})|{;};
  216.     footnote({ライブラリ番号を指定して下さい});
  217.     SNDMSG({erande_f.snd});
  218.     cntl:=    cntl |    {libno=}|@select({ライブラリ番号は？},
  219.                     Wtime4,{im({1})},
  220.                     {　１},{im({1})},{　２},{im({2})},
  221.                     {　３},{im({3})},{　４},{im({4})},
  222.                     {　５},{im({5})},{　６},{im({6})},
  223.                     {　７},{im({7})},{　８},{im({8})},
  224.                     {　９},{im({9})},{１０},{im({10})}
  225.                     )|{;};
  226.     footnote({データ番号を入力して下さい});
  227.     SNDMSG({nyuryo_f.snd});
  228.     cntl:=    cntl |    {datano=}|@input({データ番号を入力して下さい})|{;};
  229.     footnote({説明文のダウンロードファイルを指定して下さい});
  230.     cntl:=    cntl |    {docfile=}|@FILEsel2|{;};
  231.     footnote({データのダウンロードファイル名を指定して下さい});
  232.     cntl:=    cntl |    {datafile=}|@FILEsel2|{;};
  233.     display    ({\n\n}|cntl|{\n});
  234.     SNDMSG({kaknin_f.snd});
  235.     footnote({確認してください？});
  236.     select    (
  237.         {確認してください},
  238.         Wtime4,    {},
  239.         {Ｏ  Ｋ},{write(TEMP2|{_mopdnld.ctl},cntl|{\n})},
  240.         {Ｎ  Ｇ},{AUTOdlib},
  241.         {中  止},{}
  242.         );
  243.     };
  244.  
  245. /*    ダウンロードファイル指定処理    */
  246. %FILEsel2
  247.     {
  248.     var    dnfile    [64];
  249.     SNDMSG({erande_f.snd});
  250.     dnfile:=@filesel;
  251.     case    (
  252.         dnfile,
  253.         {},    {im({})},
  254.         ,    {case    (
  255.                 @nochar(@getcdir)=3,
  256.                 {Yes},    {dnfile:=@getcdir|dnfile},
  257.                 {No},    {dnfile:=@getcdir|{\}|dnfile}
  258.                 )
  259.             }
  260.         );
  261.     im(dnfile);
  262.     };
  263.  
  264. /*    プロフィール情報のダウンロード制御文作成    */
  265. %AUTOprof
  266.     {
  267.     footnote({プロフィール情報を参照するＩＤを入力して下さい});
  268.     SNDMSG({nyuryo_f.snd});
  269.     cntl:=    {profile=}|
  270.         @input({プロフィール情報を参照するＩＤを入力して下さい\n}|
  271.             {    ｶﾝﾏ｢,｣で区切って複数指定できます})|
  272.         {;};
  273.     display    ({\n\n}|cntl|{\n});
  274.     SNDMSG({kaknin_f.snd});
  275.     footnote({確認してください？});
  276.     select    (
  277.         {確認してください},
  278.         Wtime4,    {},
  279.         {Ｏ  Ｋ},{write(TEMP2|{_mopdnld.ctl},cntl|{\n})},
  280.         {Ｎ  Ｇ},{AUTOdlib},
  281.         {中  止},{}
  282.         );
  283.     };
  284.  
  285. SETCNTL2;
  286.